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CARD TO TAPE CONVERSION WITH DIAGNOSTICS 


DECUS Program Library Write-up 


DECUS No. 8-311 


ABSTRACT 

THIS ROUTINE CONVERTS CARDS PUNCHED IN HOLLERITH CODE TO PAPER TAPE 
PUNCHED IN ASCII CODE ON EITHER HIGH OR LOW SPEED PUNCH. INPUT AND 
OUTPUT DEVICES ARE OPERATED AT MAXIMUM SPEED. CHARACTER VALIDITY 
CHECK IS MADE ON EACH CARD COLUMN. DATA LOSS CHECK IS MADE ON EACH 
CARD. ERROR DIAGNOSTICS ALLOW RECOVERY FROM MOST DATA LOSS,READ 
ERROR,AND HARDWARE FAILURE SITUATIONS. USER GENERATED CARD DECK OF 
KNOWN ERRORS MAY BE USED TO PERFORM OPERATIONAL CHECK OF READER. 

REQUIREMENTS 

A. COMPUTER--PDP-8/I WITH CR-8/I (GDI MODEL 100 CARD READER). 

B. CARD DECK--CARDS TO BE CONVERTED PUNCHED IN HOLLERITH CODE. 

RESTRICTIONS 

ALL 64 CHARACTERS IN HOLLERITH CODE ARE RECOGNIZED AS VALID. ALPHAS, 
NUMERICS,AND 11 SPECIAL CHARACTERS OF IBM 26 PUNCH CHARACTER SET ARE 
CONVERTED TO ASCII CODE. REMAINING VALID CODES ARE CONVERTED TO 
ZEROES (EQUIVALENT TO BLANK TAPE). 

USAGE 

A. LOAD OBJECT TAPE WITH BINARY LOADER. 

B. TURN ON THE DESIRED OUTPUT DEVICE. EITHER LOW OR HIGH SPEED PUNCH 
MAY BE USED. 

C. LOAD CARD DECK IN INPUT HOPPER. 

D. LOAD STARTING ADDRESS 0200 AND PRESS START SWITCH. 

E. REFER TO ERROR DIAGNOSTICS IN COMMENTS SECTION IF COMPUTER HAL 
BEFORE CARD TO TAPE CONVERSION IS COMPLETE. 

COMMENTS 

PROGRAM IS CONTAINED BETWEEN LOCATIONS 0000-0600. LOCATIONS 060C 
7600 ARE USED AS BUFFER STORAGE. THE CARD READER OPERATES AT FULL 
SPEED FILLING THIS BUFFER. AT THE SAME TIME THE OUTPUT DEVICE IS 
OPERATING AT FULL SPEED EMPTYING THE BUFFER. 

ALL 80 COLUMNS OF THE CARD ARE READ TWICE. FIRST IN THE BINARY MODE 
THEN THE ALPHA-NUMERIC MODE. THE BINARY READING IS CHECKED FOR CHAR¬ 
ACTER VALIDITY. THE ALPHA-NUMERIC READING IS COMPARED TO THE VALID 
BINARY READING. A CARD COLUMN COUNT IS KEPT AND DATA LOSS IS ASSUMED 
IF MORE OR LESS THAN 80 COLUMNS ARE READ. 

V CARRIAGE-RETURN AND LINE-FEED CODES ARE GENERATED AS TERMINATORS FOR 
EACH CARD. THEY ARE PLACED IN THE CARD READ BUFFER IMMEDIATELY AFTER 
THE LAST NON-SPACE CHARACTER PUNCHED IN THE CARD. THEY ARE PLACED IN 
COLUMNS 1 AND 2 FOR BLANK CARDS. 

OUTPUT CODE MAY BE CHANGED FROM ASCII TO ANY 64 CHARACTER CODE SET 
BY REPLACING THE CODE TABLE AT LOCATIONS 0400-0500 WITH THE PROPER 
HOLLERITH CODE TO NEW CODE CHARACTER SET. 








ERROR DIAGNOSTICS 


ACCUMULATOR PROBABLE CAUSE OF ERROR HALT 

CONTENTS RECOVERY PROCEDURE 

0000 CARD DONE FLAG—FLAG NOT SET AFTER 80 COLUMNS» 

RELOAD LAST CARD* PRESS CONT TO RESTART. 

0100 DATA LOSS--DATA READY FLAG OCCURED FOR MORE THAN 80 COLUMNS. 
RELOAD LAST CARD,PRESS CONT TO RESTART. 

0200 READ ERROR-INVALID CODE READ IN BINARY MODE OR BINARY AND 
ALPHA-NUMERIC READINGS DO NOT AGREE. 

RELOAD LAST CARD,PRESS CONT TO RESTART. 

7661-7777 DATA LOSS—DATA READY FLAG OCCURED FOR LESS THAN 80 COLUMNS. 
RELOAD LAST CARD,PRESS CONT TO RESTART. 

7660 THERE ARE SEVERAL CAUSES OF AN ERROR HALT WITH THIS ACCUMU¬ 
LATOR INDICATION. ERROR LIGHTS ON CARD READER CONTROL PANEL 
HELP DETERMINE CAUSE. 


NO LIGHTS—READ START OR MOTOR START SWITCHES NOT OPERATED. 
DATA READY FLAG INOPERATIVE IF CARD MOTION WAS OBSERVED. RCSE 
COMMAND INOPERATIVE IF CARD MOTION WAS ABSENT. ERROR LIGHTS 
BURNED OUT. 

HOPPER EMPTY—NORMAL INDICATION WHEN ALL CARDS PLACED IN 
INPUT HOPPER HAVE BEEN READ. IF CONVERSION IS NOT COMPLETE, 
LOAD CARDS IN INPUT HOPPER AND PRESS CONT. 

PICK FAIL--TOO MANY CARDS IN INPUT HOPPER. 

REMOVE SOME CARDS,PRESS CONT TO RESTART. 

DARK CHECK--TRANSLUCENT CARD OR READ LAMP INTENSITY TOO HIGH. 
LAST CARD HAD ALL VALID HOLLERITH CODES. 

PRESS CONT TO RESTART. 

DARK CHECK PLUS LIGHT CHECK--TRANSLUCENT CARD OR READ LAMP 
INTENSITY TOO HIGH. REMOVE CARD FROM READ STATION,RELOAD 
CARD,PRESS CONT TO RESTART. 

STACKER FAIL--CARD JAM IN TRACK BETWEEN READ STATION AND 
STACKER HOPPER. DETERMINE SALVAGE PROCEDURE. 

SYNC FAIL--THE LAST CARD WAS PROBABLY READ CORRECTLY. TRY TO 
CONTINUE BY PRESSING CONT. 


LIGHT CHECK--CARD IN READ STATION TOO LONG. MAY BE ACCOMPA¬ 
NIED BY INCORRECT DATA READINGS DUE TO LOSS OF BITS. IN GEN¬ 
ERAL,LOSS OF BITS WILL STILL GENERATE VALID HOLLERITH CODES. 
PRESSURE ROLLERS IN READ STATION MAY BE WORN OR OUT OF 
ADJUSTMENT. SAFEST COURSE IS TO RELOAD DECK AND RESTART AT 
LOCATION 0200. 
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/PROGRAM LISTING 

/CARD TO TAPE CONVERSION WITH DIAGNOSTICS 
/B.J. LITTLE 
/ 1-30-70 


/AUTOMATIC SELECTION OF HIGH OR LOW SPEED PUNCH 

/HIGH SPEED PUNCH IS SELECTED IF POWER IS ON--OTHERWISE THE 

/LOW SPEED PUNCH IS SELECTED 


/PARAMETER 

RCSF=6631 

RCRA=6632 

RCRB=6634 

RCSD=6671 

RCSE=6672 

RCRD=6674 


ASSIGNMENTS 

/SKIP ON DATA READY 
/READ ALPHANUMERIC 
/READ BINARY 
/SKIP ON CARD DONE FLAG 
/SELECT CARD READER AND 
/CLEAR CARD DONE FLAG 


SKIP IF READY 


*10 

/INDEX REGISTERS 
AUTOA# 0 
AUTOB, 0 
AUTOC# 0 

*20 

/TEMPORARY REGISTERS AND FLAGS 


/BUFFER FILLING INDEX 
/BUFFER EMPTYING INDEX 
/TABLE SEARCH INDEX 


TEM1# 
TEM2# 
TEMEND# 
COLCNT # 
NOTRDY# 
BFRFUL# 


0 

0 

0 

0 

0 

0 


/INTERCOM REGISTERS 
HARE# HSP 
TURTLE# LSP 
OUTPUT# 0 
BFRST# BFRBG-1 
BFREND# -7456 
ALFWD# ALFTAB 
PALFWD# 0 
POCTWD# OCTTAB+ 77 
/CONSTANTS 
MNSJ2# -12 
MNS40# -40 


/TEMPORARY END OF INPUT BUFFER 
/COLUMN COUNTER 

/NOT READY#OUT OF CARDS#OR READING ERROR 
/BUFFER FULL 

/HIGH SPEED PUNCH OUTPUT 
/TELETYPE OUTPUT 
/OUTPUT DEVICE POINTER 
/BUFFER START FOR AUTO INDEX 
/END OF BUFFER 
/ASCII CODE TABLE START 
/ALPHA TABLE POINTER 
/OCTAL CODE TABLE END 


M 100 # -|00 

Ml 20# -120 

M240# -240 

P100# 100 

CR# 215 

LF# 212 


/LOW SPEED PRINT AND PUNCH OUTPUT 
LSP# 0 

CLA CLL 

TSF /SKIP IF FLAG IS SET 

JMP I LSP 

TAD I AUTOB /GET CHARACTER 
TLS /PRINT AND PUNCH IT 

CLA CLL 
JMP I LSP 
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/HIGH SPEED PUNCH OUTPUT 
HSP* 


/SKIP IF FLAG IS SET 


0 

CLA CLL 
PSF 

JMP I HSP 

TAD I AUTOB /GET CHARACTER 
PLS /PUNCH IT 

CLA CLL 
JMP I HSP 

/OUTPUT ONE CHARACTER TO SELECTED DEVICE 
CHROUT* 0 

CLA CLL 
TAD AUTOB 
CMA 

TAD TEMEND 
SZL CLA 
JMP BYPASS 
ISZ NOTRDY 
JMP .+5 
CLA CLL CMA 
DCA NOTRDY 
ISZ CHROUT 
JMP I CHROUT 
DCA NOTRDY 
ISZ BFRFUL 
JMP .+3 
JMP I. + l 
BETA 
DCA BFRFUL 
SKP 

BYPASS* JMS I OUTPUT /PRINT OR PUNCH CHARACTER 
JMP I CHROUT 


/DATA AVAILABLE TO PRINT OR PUNCH 
/YES 

/HARDWARE NOT READY FLAG SET 
/NO 

/LEAVE THE NOT READY FLAG SET 
/MODIFY RETURN 


/BUFFER FULL FLAG SET 
/NO 

/REFILL BUFFER 


/INPUT TERMINATION ON READ ERROR 
ERROR* 5 • 


OVR80=• 


TAD COLCNT 

SNA CLA /DATA READY AFTER 80 COLUMNS 
JMP OVR80 /YES 

DCA TEM1 /NO—DELAY TO COMPLETE CARD MOTION 

JMS CHROUT 

ISZ TEMI 

JMP .-2 

TAD PI00 


TAD PI00 
DCA TEM2 
RCRB 

CLA CLL CMA 
DCA NOTRDY 
TAD TEMEND 
DCA AUTOA 
JMS CHROUT 
JMP .-1 
TAD TEM2 
HLT 

CLA CLL 
JMP I .+I 
NXTCRD 


/CLEAR DATA READY FLAG 

/SET NOT READY FLAG 

/REMOVE LAST CARD FROM BUFFER 

/EMPTY THE BUFFER 
/GET ERROR INDICATOR 
/OPERATOR ACTION 


/NEXT CARD 
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*200 

/SELECT OUTPUT DEVICE 
ALPHA=. 


E AST =• 


KCC 

TL.S 

PLS 

RCRB 

CLA CLL 

DCA TEM1 

TAD MNSI2 

DCA TEMP 

PSF 

SKP 

JMP FAST 
ISZ TEM1 
JMP .-4 
ISZ TEMP 
JMP .-6 
TAD TURTLE 
SKP 


/CLEAR KEYBOARD 
/SELECT PRINTER 
/SELECT PUNCH 
/CLEAR DATA READY FLAG 


/PUNCH FLAG SET 

/YES-USE HIGH SPEED PUNCH 

/WAITED 4P MS 

/NO 

/WAITED 420 MS 
/NO 

/USE LOW SPEED OUTPUT 


TAD HARE 

DCA OUTPUT /SET POINTER TO OUTPUT DEVICE 
/INITIALIZE—BUFFER IS EMPTY 
BETA= * 

TAD BFRST 

DCA AUJOA /SET READ INDEX 
TAD BFRST 

DCA AUTOB /SET PUNCH INDEX 
TAD BFRST 

DCA TEMEND /SET BUFFER TEMPORARY END POINTER 
DCA BFRFUL /CLEAR BUFFER FULL FLAG 
/READ NEXT CARD 
NXTCRD=• 


TAD M J 20 
DCA COLCNT 
RCSE 

JMP NPUTND 
DCA NOTRDY 
/READ NEXT COLUMN 
NXTCOL=. 


/SET COLUMN COUNTER 
/SKIP IF CARD READER READY 
/RCSE FAILED 
/CLEAR NOT READY FLAG 


TAD 

MNS40 

DCA 

TEM J 

DCA 

TEM2 

RCSF 

SKP 

JMP 

HAVDTA 

JMS 

CHROUT 

ISZ 

TEM2 

JMP 

.-5 

ISZ 

TEM J 

JMP 

.-7 


/SKIP ON DATA READY FLAG 

/NO DATA—WAIT FOR 2 PICK ATTEMPTS 

/HAVE DATA 

/OUTPUT A CHARACTER 

/INNER DELAY LOOP 

/OUTER DELAY LOOP 
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NPUTND= 


CLA CLL CMA 

DCA NOTRDY /SET NOT READY FLAG 
TAD TEMEND 

DCA AUTOA /REMOVE LAST CARD FROM BUFFER 
JMS CHROUT 

JMP .-1 /EMPTY THE BUFFER 

TAD COLC.NT /GET ERROR INDICATOR 
HL.T /OPERATOR ACTION 

CLA CLL 

JMP NXTCRD /READ IN NEXT CARD 
/CHECK FOR LEGAL CHARACTER* COMPARE ALPHA AND BINARY READ 
HAVDTA=« 


RCRB 

DCA TEM2 
TAD TEM2 
SMA 
RAL 

SMA CLA 
TAD MNS40 
TAD MNS40 
TAD POCTWD 
DCA AUTOC 
TAD MNS40 
DCA TEM1 


/READ BINARY 
/SAVE CHARACTER 

/MSB=4000 

/NO 

/MSB=2000 

/NO--OCTAL CODE IS LESS THAN 2000 


HUNT=. 


/GET OCTAL CODE 
/GET CHARACTER 
/HAVE MATCH 
/YES 

/THROUGH SEARCHING 
/NO 

/ILLEGAL CODE 

/GET OCTAL CODE ADDRESS 

/ALPHA TABLE POINTER 

/READ ALPHA-NUMERIC 


TAD I AUTOC 
TAD TEM2 
SNA CLA 
JMP .+4 
ISZ TEM1 
JMP HUNT 
JMP ERROR 
TAD AUTOC 
TAD M100 
DCA PALFWD 
JMS CHROUT 
RCRA 
TAD ALFWD 
CMA I AC 
TAD PALFWD 
SZA CLA 

JMP ERROR /ALPHA AND OCTAL READ DO NOT MATCH 

TAD I PALFWD /GET ASCII CODE 

DCA I AUTOA /STORE IN BUFFER 

ISZ COLCNT /FINISHED 80 COLS 

JMP NXTCOL /NO 


/CHECK FOR CARD DONE FLAG AND MORE THAN 80 COLUMNS 
DCA TEM1 

ISZ TEM1 /DELAY FOR CARD DONE FLAG 
SKP 

JMP NPUTND /CARD DONE FLAG MISSING 

RCSF 

SKP 

JMP ERROR /DATA READY FLAG AFTER COL 80 
JMS CHROUT 

RCSD /SKIP ON CARD DONE FLAG 

JMP .-10 

ISZ AUTOA /SET UP FOR LASTfNON-SPACE) CHARACTER 
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/LOOK FOR LAST NON SPACE CHARACTER# STORE A CR AND LF 
LSTCHR=• 

CLA CLL CMA RAL /SET ACC=-2 
TAD AUTOA 

DCA AUTOA /BACK UP TWO 
TAD I AUTOA /GET CHARACTER 
TAD M240 

SNA CLA /WAS IT A SPACE 

JMP LSTCHR /YES 

TAD CR 

DCA I AUTOA /STORE CARRIAGE RETURN 
TAD LF 

DCA I AUTOA /STORE LINE FEED 
TAD AUTOA 

DCA TEMEND /LAST CARD IS READY TO PRINT OR PUNCH 
CLA CLL 
TAD BFREND 
TAD AUTOA 

SNL CLA /BUFFER FULL 

JMP NXTCRD /NO 

CLA CLL CMA 

DCA BFRFUL /SET BUFFER FULL FLAG 
JMS CHROUT 

JMP .-I /EMPTY THE BUFFER 

HLT 
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/HOLLERITH TO ASCII CODE TABLE OF 64 DECIMAL CHARACTERS 
/LISTED IN 00 TO 77 OCTAL NUMERICAL ORDER CORRESPONDING TO 
/INTERNAL CARD READER CODE AS READ IN ALPHA-NUMERIC MODE 
/NSfNON-SPECI FI ED) CHARACTERS FOR LEGAL HOLLERITH CODES 
/PRODUCE 0<EQUIVALENT TO BLANK TAPE) IN ASCII CODE. 

*400 

ALFTAB=. /CODE TABLE FOR ALPHA-NUMERIC MODE 

/ASCII CHAR- HOLLERITH 


/CODE 

ACTER 

CODE 

240 

/SPACE 

BLANK 

26! 

/! 

! 


262 

/2 

2 


263 

/3 

3 


264 

/4 

4 


265 

/5 

5 


266 

/6 

6 


267 

/7 

7 


270 

/8 

8 


271 

/9 

9 


0 

/NS 

8 

2 

275 

/= 

8 

3 

247 

/ ' 

8 

4 

0 

/NS 

8 

5 

0 

/NS 

8 

6 

0 

/NS 

8 

7 

260 

/0 

0 


257 

// 

0 

1 

323 

/S 

0 

2 

324 

/T 

0 

3 

325 

/U 

0 

4 

326 

/V 

0 

5 

327 

/w 

0 

6 

330 

/X 

0 

7 

33! 

/Y 

0 

8 

332 

/z 

0 

9 

0 

/NS 

0 

8 2 

254 

/» 

0 

8 3 

250 

/( 

0 

8 4 

0 

/NS 

0 

8 5 

0 

/NS 

0 

8 6 

0 

/NS 

0 

8 7 
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/ASCII CHAR- 


/CODE 

ACTER 

255 

/- 

312 

/J 

313 

/K 

314 

/L 

315 

/M 

316 

/N 

317 

/O 

320 

/P 

321 

/Q 

322 

/R 

0 

/NS 

244 

/S 

252 

/* 

0 

/NS 

0 

/NS 

0 

/NS 

253 

/+ 

301 

/A 

302 

/B 

303 

/C 

304 

/D 

305 

/E 

306 

/F 

307 

/G 

310 

/H 

31 1 

/I 

0 

/NS 

256 

/. 

251 

/) 

0 

/NS 

0 

/NS 

0 

/NS 


HOLLERITH 

CODE 

I 1 

II I 

1 I 2 
I I 3 
I I 4 
1 I 5 
1 I 6 
1 1 7 

I I 8 

I I 9 

II 8 2 
118 3 
118 4 
118 5 
11 8 6 
118 7 
12 

12 1 
12 2 
12 3 
12 4 
12 5 
12 6 
12 7 
12 8 
12 9 
12 8 2 
12 8 3 
12 8 4 
12 8 5 
12 8 6 
12 8 7 
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/HOLLERITH TO OCTAL CODE TABLE OF 64 DECIMAL CHARACTERS 
/LISTED IN 00 TO 77 OCTAL NUMERICAL ORDER CORRESPONDING TO 
/INTERNAL CARD READER CODE AS READ IN ALPHA-NUMERIC MODE 
*500 

OCTTAB=• /CODE TABLE FOR BINARY MODE 

/OCTAL CHAR- HOLLERITH 


/CODE 

ACTER 

CODE 


0000 

/SPACE 

BLANK 

-0400 

/I 

1 



-0200 

/2 

2 



-0100 

/3 

3 



-0040 

/4 

4 



-0020 

/5 

5 



-0010 

/6 

6 



-0004 

/ 7 

7 



-0002 

/8 

8 



-0001 

/9 

9 



-0202 

/NS 

8 

2 


-0102 

/= 

8 

3 


-0042 

/ ' 

8 

4 


-0022 

/NS 

8 

5 


-0012 

/NS 

8 

6 


-0006 

/NS 

8 

7 


- 1000 

/0 

0 



-1400 

// 

0 

1 


-1200 

/S 

0 

2 


- 1100 

/T 

0 

3 


-1040 

/U 

0 

4 


-1020 

/V 

0 

5 


-1010 

/w 

0 

6 


-1004 

/X 

0 

7 


-1002 

/Y 

0 

8 


- 1001 

/Z 

0 

9 


- 1202 

/NS 

0 

8 

2 

-1 102 

/* 

0 

8 

3 

- 1042 

/f 

0 

8 

4 

-1022 

/NS 

0 

8 

5 

-1012 

/NS 

0 

8 

6 

-1006 

/NS 

0 

8 

7 
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/OCTAL CHAR- 

HOLLERITH 

/CODE 

ACTER 

CODE 

-2000 

/- 

1 1 


-2400 

/J 

1 1 

1 

-2200 

/K 

1 1 

2 

-2100 

/L 

11 

3 

-2040 

/M 

1 1 

4 

-2020 

/N 

1 1 

5 

-20 J 0 

/o 

1 1 

6 

-2004 

/P 

1 1 

7 

-2002 

/Q 

1 1 

8 

-2001 

/R 

1 1 

9 

-2202 

/NS 

1 1 

8 2 

-2102 

/S 

1 1 

8 3 

-2042 

/* 

1 1 

8 4 

-2022 

/NS 

1 1 

8 5 

-2012 

/NS 

1 1 

8 6 

-2006 

/NS 

1 1 

8 7 

-4000 

/+ 

12 


-4400 

/A 

12 

1 

-4200 

/B 

12 

2 

-4100 

/C 

12 

3 

-4040 

/D 

12 

4 

-4020 

/E 

12 

5 

-4010 

/F 

12 

6 

-4004 

/G 

12 

7 

-4002 

/H 

12 

8 

-4001 

/I 

12 

9 

-4202 

/NS 

12 

8 2 

-4102 

/. 

12 

8 3 

-4042 

/) 

12 

8 4 

-4022 

/NS 

12 

8 5 

-4012 

/NS 

12 

8 6 

-4006 

/NS 

12 

8 7 

BFRBG=. 

$ 


/BUFf 


START 
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